home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2002 #11 / Amiga Plus CD - 2002 - No. 11.iso / Tools / Development / PowerD / examples / amitcp / getip.d next >
Encoding:
Text File  |  2002-10-28  |  719 b   |  32 lines
  1. OPT DOSONLY
  2.  
  3. MODULE 'socket','socket/netdb'
  4. MODULE 'dos/dos'
  5.  
  6. DEF SocketBase
  7. DEF he:PTR TO hostent
  8. DEF rdargs,args:PTR TO LONG
  9.  
  10. PROC main()
  11.  
  12.     args := [0]:LONG
  13.  
  14.     IF rdargs := ReadArgs('HOSTNAME/A',args,NIL)
  15.         IF SocketBase := OpenLibrary('bsdsocket.library',0)
  16.             IF he := gethostbyname(args[0])
  17.                 PrintF('Host name  : \s\n',he.h_name)
  18.                 PrintF('IP address : \s\n', inet_ntoa(^he.h_addr_list[0]))
  19.             ELSE
  20.                 PrintF('Cannot get ip!\n')
  21.             ENDIF
  22.         CloseLibrary(SocketBase)
  23.         ELSE
  24.             PrintF('Turn on your TCP/IP stack!\n')
  25.         ENDIF
  26.     FreeArgs(rdargs)
  27.     ELSE
  28.         PrintFault(IOErr(),'getip')
  29.     ENDIF
  30.  
  31. ENDPROC
  32.